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IDENT v03-002 


$ Facility: SPKITBLD, Procedure to Build a VMS Software Product Kit 


$' Abstract: This procedure is used to build an installation kit 


for a VAX/VMS software product. It is intended to 
build kits which are installed by the “new VMSINSTAL. 


$' Parameters: P1 - proguct to be built 


$! (a 4 - device on which to build kit 
3; optional) - files to place in first saveset 
$i Author: Paul C. Anagnostopoulos, Creation Date: 30 June 1982 
$i Modifications: 
i v03-002 HwS0099 Harold Schultz 06-Aug-1984 
: ix label truncation when dealing with console devices 
i V03-001 HWS0094 Harold Schultz 24-Jul-1984 
: Fix spelling of ‘resettin 
i 
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cthtieciatieel tated 


Allow longer facility ton i (up to 39 char., including vvu) 


on control_y then gete 8 bad_kit 
on werning then goto bad_kit 
ask = ngu ire/ngpunctuat ion” 
Say = Wr te sysSoutput" 


remoun 
54 yee Staal /!/! _VAX/VMS V4.0 Software Product Kit Build Procedure!/‘')"' 


p = ‘CMKRNL,LOG_10,SYSNAM,VOLPRO"' 

saved_privs = fSsetprv(p ; 
if .ndt. f$priv(p) then say ‘You need the following privileges: ‘'.p 
if .not. f$priv(p) then goto bad_k 

if pl .nes. ‘"* 


then goto m5 
type sys$input: 


ts have names in the vorant pace. where fac is the facility name, 
is ~~ peler, wore ten number, and u is the update number. 


xP} Which kit would you Ut Uke, fe build: 
faci ity = f$ext(0, f$len 18.373 

version = 'f$ext(f$len( <} -e1) 

update = 'fSext(f$len(pl)-1 are ) 


- *"* then ask dest ‘On which device iy t the Ais to be built: "’ 


gta DEVICES SYNTAR KAONLY. ) 
r= porse deat 
devic Pang bo 
oct CSA", dev gfe- f$len(device) then goto “a? 
et ) then - ' 
f$get tdvi (dest. ,DEVCLASS’) .eq. J .or. = 
f$getdvi(dest,’DEVCLASS'') .eq. 2 then goto m7 
say ‘Device must be a disk or tape." 
goto bad_kit 


remount = f$loc("'CSA’, device) .ne. f$len(device) 
if .not. remount then goto m 

s = ‘‘$sysgen" 

$s connect console 


PPRMMMWM 
fas 


t 
$ 
$m9: 
g 
$ 


pee goereyee oe 


DISK: 


TAPE: 


at 
Oo 


Sit Agee phere grins secur ng 
o 


_ 
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PAM 


if f$getdyi(device,’MNT'') then dismount ‘device 
allocate ‘device 


if f$getdvi(device,'D 
is rat hs A FD 
not. f$getdvi (dev mi5 
if f$getdvi Gev te," .and. f$get vi(device,"FoR") and. = 
# getdvi ( ws bag LASS") 2eq. pots "5 m_tape 
if f dovtdu (deg ce then Piva eK ol oad ' device 
Say ° nae ready Pa first distribution volume on 
w ‘‘Are he ready? 
ye hen goto mi0 
sectttGaridantecena let ‘device 
remount = 1 


¥ gO eq. 1 .and. - 
ce pons then 
T'S vit 
wt C 
‘MNT"') 


device." 


if f$getdvi(device,’‘DEVCLASS'’) .eq. ‘. ghgn oto m_TAPE 
if fSgetdvi(device,’MAXBLOCK’') .gt. 12 then goto m_DISK 


= RD ad ae ard ecg ob 15 rel 
agitty? gt. 0 then acilit ty = f$ext(0,1 
tacility'0i, vrachlit ty'02,'*facility'0$, 
labels = = tabets + at "fac ility'06,''f '07,*' fac 
goto m20 


backup_quals = ‘'/block=9000/group=25"' 
labels"= facility 
Lim = 12 
goto m19 


04,°*facility'd o3,,"" 
facility'09, ‘facility’ 10° 


backup. quals = ''/rewi/dens=1600" 
ask w “Are there already Savesets on this ta 
if w then backup_quals = ‘’/norewi/dens=1600"' 
eee facility 

m 


ape? o 


goto m19 


if f$len(labels 
labels = fSext( 


, at 
0,Li 
say ‘Saveset A must contain the KITINSTAL.COM procedure." 
coxters = “‘ABCDEFGHI JKLMNOPQRSTUVWXY2"" 

ssn = 


e. Lim then goto m20 
m, labels) 


ssn = ssn + 1 
ssname = f$ext(ssn-1,1,letters) 
ssid = ssname 
if sen gt. 26 th then ssname = f$fao(''VMI_ i4ih". ssn) 
tf en ssid = f$fao('!47L'% : ‘ 
me bey faotiyts 'AS VIUL.!UL, Saveset. eRe) efacility.version,update,ssid)' 


£98. m then ask f ‘Which files: °° 

iret =""(S:RWED, 0: RWED, G:RWED,W:RE)* = 
write sys$output "Resetting protection on all files to ",prot,"’... 
set ererect Tene ares bs 

pochup/cqamonte’ AX/VMS SPKITBLD Procedure’’/inter/log/verify - 


*dest'*pl.*ssname/label=(‘labels)/savebackup_quals 
if p2 ,nes. ‘"* then goto s1 vi 

ask w “Is there another saveset to create (NO)? 

if .not. w then goto s19 
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yeesergere= 
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Res 
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SoS eere 
“ 


oO 


bad_kit 


PAHS 


uals = backup quals..., * opty shy pi 

dvi(device, ‘DEVCLASS') .eq. 

dvi(device, MAXBLOCK') .gt. 0895" then oto,, $10 

w ‘Does it need to start on a new volume [N 

-not. w then oto $1 

unt/nounloa sfevice 

unt/forei gnince $s Stinompesoge Sey ice 

= f$loc( t$q rey (device, ¥9L AM") els) 

abels = fSext( *#$Len( facil ty)+3, $53" Cabels) 

f f$len(Label le. Lim then goto s1 

abels = foettisiontiapetene “tim Lim, Labels) 

backup_quals = backup_quals + "/init” 

ismount device 

say Wiaeee aoynt the next FS 5 amas volume on ‘'device."’ 
. ou read 
fn hen ote "15 

mount ton fagrgtcatette ‘device 

goto s10 


acnr—--n—, 


say ‘''f$faol("'!/!_Kit Build Completed Successfully!/!/'')" 


on warning then exit 

f .not. remount then o d9 
i t floc (“CSA dev "MN n° then dismount/nounload ‘device 

"CSA", device) .eq. f$len(device) then goto d9 
i ‘Please remount the console volume,"’ 
osk ad ag you reeey? 
-not. w then goto d5 

nount/toreign/systen/prote 01 RSE rwlp/nowrite/noassist ‘device console 

a f$setpriv(saved_privs) 
ex 


type sys$input: 


goto done 


o 
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